home *** CD-ROM | disk | FTP | other *** search
/ Boot Disc 12 / boot-disc-1997-08.iso / Cakewalk / AD.1 / Dominant 7th Chord.cal < prev    next >
Text File  |  1997-05-15  |  637b  |  25 lines
  1. ;; Dominant 7th Chord.cal
  2. ;;
  3. ;; Treats each note as the root of a dominant 7th chord; creates that chord:
  4. ;; For each note event, adds three note events with same time, vel, and dur
  5. ;; but a major 3rd, a perfect 5th, and a minor 7th higher.
  6.  
  7. (do
  8.     (include "need20.cal")    ; Require version 2.0 or higher of CAL
  9.  
  10.     (forEachEvent
  11.         (if (== Event.Kind NOTE)
  12.            (do
  13.              (insert Event.Time Event.Chan NOTE (+ Note.Key  4) Note.Vel Note.Dur)
  14.              (insert Event.Time Event.Chan NOTE (+ Note.Key  7) Note.Vel Note.Dur)
  15.              (insert Event.Time Event.Chan NOTE (+ Note.Key 10) Note.Vel Note.Dur)
  16.            )
  17.         )
  18.     )
  19. )
  20.  
  21.  
  22.  
  23.  
  24.  
  25.